object dem04form: Tdem04form Left = 126 Top = 289 Width = 600 Height = 440 Caption = 'Report Demo 4' Font.Color = clWindowText Font.Height = -18 Font.Name = 'System' Font.Style = [] PixelsPerInch = 120 Position = poScreenCenter TextHeight = 20 object Panel1: TPanel Left = 0 Top = 0 Width = 592 Height = 89 Align = alTop TabOrder = 0 object Label1: TLabel Left = 20 Top = 12 Width = 370 Height = 19 Caption = 'This is a Demo of the TPrintGridReport Component' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label2: TLabel Left = 20 Top = 36 Width = 260 Height = 19 Caption = 'and SubTotals and Calcutated fields' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label3: TLabel Left = 20 Top = 60 Width = 415 Height = 19 Caption = 'Note: The printer is forced to print Landscape Orientation' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Preview: TBitBtn Left = 472 Top = 12 Width = 109 Height = 29 Caption = 'Pre&View' TabOrder = 0 OnClick = PreviewClick end object Exit: TBitBtn Left = 492 Top = 48 Width = 89 Height = 33 Caption = '&Exit' ModalResult = 1 TabOrder = 1 end end object Panel2: TPanel Left = 0 Top = 89 Width = 592 Height = 324 Align = alClient BevelInner = bvLowered BorderWidth = 4 TabOrder = 1 object DBGrid1: TDBGrid Left = 6 Top = 6 Width = 580 Height = 312 Align = alClient DataSource = DataSource1 Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial Narrow' Font.Style = [] ParentFont = False TabOrder = 0 TitleFont.Color = clBlue TitleFont.Height = -15 TitleFont.Name = 'Arial Narrow' TitleFont.Style = [fsBold] end end object Query1: TQuery Active = True DatabaseName = 'DBDEMOS' SQL.Strings = ( 'Select' ' parts."PartNo",' ' parts."VendorNo",' ' parts."Description",' ' parts."OnHand",' ' parts."OnOrder",' ' parts."Cost",' ' parts."ListPrice"' 'From "parts.db"' 'As parts' 'order by' 'VendorNo') Left = 324 Top = 65532 object Query1PartNo: TFloatField DisplayWidth = 6 FieldName = 'PartNo' end object Query1VendorNo: TFloatField FieldName = 'VendorNo' end object Query1Description: TStringField DisplayWidth = 23 FieldName = 'Description' Size = 30 end object Query1OnHand: TFloatField DisplayWidth = 8 FieldName = 'OnHand' end object Query1OnOrder: TFloatField DisplayWidth = 8 FieldName = 'OnOrder' end object Query1Cost: TCurrencyField DisplayWidth = 6 FieldName = 'Cost' Currency = True end object Query1ListPrice: TCurrencyField DisplayWidth = 9 FieldName = 'ListPrice' Currency = True end end object DataSource1: TDataSource DataSet = Query1 Left = 292 Top = 65532 end object PrintGridReport1: TPrintGridReport ViewButtonVisible = False OutputTo = poViewer Orientation = Default ViewBkColor = 11234567 Units = poInches ViewHeading = 'Reportit Viewer' FooterFont.Color = clWindowText FooterFont.Height = 12 FooterFont.Name = 'Arial' FooterFont.Style = [] HeaderFont.Color = clBlack HeaderFont.Height = -17 HeaderFont.Name = 'Arial' HeaderFont.Style = [] OnPrintFooter = PrintGridReport1PrintFooter ZoomPercentage = 100.000000000000000000 HeaderTop = 0.500000000000000000 HeaderStringCenter = 'Page Header' HeaderEnabled = True HeaderOutlined = True HeaderFilled = False FooterTop = 24.630000000000000000 FooterString = 'Page Footer' FooterEnabled = True FooterOutlined = True FooterFilled = True DisableControls = True BorderLeft = 0.250000000000000000 BorderRight = 0.250000000000000000 DateTimeStampEnabled = True PageNumberEnabled = True GridHeadingRow = 1.500000000000000000 GridHeadingCol = 0.250000000000000000 GridHeadingEnabled = True GridHeadingOutlined = True GridHeadingFilled = False GridLines = True LineSpacing = 1.500000000000000000 Grid = DBGrid1 GridMinWidth = True GridCentered = True GridPrintTotal = True PrintSubTotals = False FrameStyleLeft = frNone FrameStyleTop = frDoubleThickThin FrameStyleRight = frNone FrameStyleBottom = frSingleThin ReportStyle = rsClassic Left = 324 Top = 36 end end